home *** CD-ROM | disk | FTP | other *** search
/ By Popular Request 2.0 / By Popular Request 2.0 (Arsenal Computer).ISO / amiga_3 / ddrmb113.lha / Doors / Rexxdir / Stats.dd < prev   
Text File  |  1995-06-28  |  4KB  |  102 lines
  1. /* DreamStats V0.1 By Hydra! */
  2.  
  3. parse arg node
  4. Options results
  5. nodeid="DREAMREXX"node
  6. address value nodeid
  7.  
  8. bordercol = ''
  9. sulkucol = ''
  10. textcol = ''
  11. infocol = ''
  12.  
  13. getuser 2
  14. usern = result
  15. getuser 3
  16. group = result
  17. getuser 27
  18. slot = result
  19. getuser 10
  20. upbytes = result
  21. getuser 11
  22. downbytes = result
  23. getuser 12
  24. upfiles = result
  25. getuser 13
  26. downfiles = result
  27. getuser 14
  28. publicm = result
  29. getuser 15
  30. privatem = result
  31. getuser 16
  32. calls = result
  33. getuser 17
  34. fratio = result
  35. getuser 18
  36. bratio = result
  37. getuser 20
  38. freebytes = result
  39. getuser 22
  40. sec = result
  41. getuser 24
  42. access1 = result
  43. getuser 25
  44. access2 = result
  45. getuser 28
  46. timeleft = result
  47. getuser 29
  48. freefiles = result
  49.  
  50. transmit " "bordercol".----------------------------------------------------------------------------."
  51. otsikko=center("Status of "usern" / "group"",74)
  52. transmit "| "infocol""otsikko""bordercol" |"
  53. transmit "+-------------------------------------+--------------------------------------+"
  54. slo=center(""slot"",13)
  55. sek=center(""sec"",13)
  56. transmit "|   "textcol"Slot number     "sulkucol"["infocol""slo""sulkucol"]   "bordercol"|   "textcol"Access Level     "sulkucol"["infocol""sek""sulkucol"]   "bordercol"|"
  57. kals=center(""calls"",13)
  58. tleft=center(""timeleft"",13)
  59. transmit "|   "textcol"Number of calls "sulkucol"["infocol""kals""sulkucol"]   "bordercol"|   "textcol"Minutes Left     "sulkucol"["infocol""tleft""sulkucol"]   "bordercol"|"
  60. pumess=center(""publicm"",13)
  61. prmess=center(""privatem"",13)
  62. transmit "|   "textcol"Public Messages "sulkucol"["infocol""pumess""sulkucol"]   "bordercol"|   "textcol"Private Messages "sulkucol"["infocol""prmess""sulkucol"]   "bordercol"|"
  63. transmit "+-------------------------------------+--------------------------------------+"
  64. UFF=center(""upfiles"",13)
  65. DFF=center(""downfiles"",13)
  66. UPB=center(""upbytes"",13)
  67. DOB=center(""downbytes"",13)
  68. transmit "|   "textcol"Uploaded files  "sulkucol"["infocol""UFF""sulkucol"]   "bordercol"|   "textcol"Leeched files    "sulkucol"["infocol""DFF""sulkucol"]   "bordercol"|"
  69. transmit "|   "textcol"Uploaded bytes  "sulkucol"["infocol""UPB""sulkucol"]   "bordercol"|   "textcol"Leeched bytes    "sulkucol"["infocol""DOB""sulkucol"]   "bordercol"|"
  70. transmit "+-------------------------------------+--------------------------------------+"
  71. if fratio="0" then call FDISABLED
  72. filer=center("1:"fratio"",13)
  73. njee=upfiles*fratio-downfiles+freefiles
  74. lablef=center(""njee"",13)
  75. call njuu
  76. FDISABLED:
  77. filer = " DISABLED!!! "
  78. lablef = " UNLIMITED!! " 
  79. njuu:
  80. transmit "|   "textcol"Fileratio       "sulkucol"["infocol""filer""sulkucol"]   "bordercol"|   "textcol"Leechable files  "sulkucol"["infocol""lablef""sulkucol"]   "bordercol"|"
  81.  
  82. if bratio="0" then call BDISABLED
  83. biler=center("1:"bratio"",13)
  84. bjee=upbytes*bratio-downbytes+freebytes
  85. lableb=center(""bjee"",13)
  86. call bjuu
  87. BDISABLED:
  88. biler = " DISABLED!!! "
  89. lableb = " UNLIMITED!! " 
  90. bjuu:
  91. transmit "|   "textcol"Byteratio       "sulkucol"["infocol""biler""sulkucol"]   "bordercol"|   "textcol"Leechable bytes  "sulkucol"["infocol""lableb""sulkucol"]   "bordercol"|"
  92. transmit "+-------------------------------------+--------------------------------------+"
  93. transmit "|"textcol"                                Conf Access                                "bordercol" |"
  94. transmit "|"sulkucol"     ["infocol""access1""access2""sulkucol"]     "bordercol"|"
  95. transmit "+-------------------------------------+--------------------------------------+"
  96. transmit "|"textcol"                         DreamStats V0.1 by Hydra!                          "bordercol"|"
  97. transmit "`----------------------------------------------------------------------------'"
  98. newline
  99.  
  100. shutdown
  101. exit
  102.